home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / designs.ifx < prev    next >
Text File  |  2004-08-03  |  2KB  |  90 lines
  1. /*
  2.  * $VER: Designs 3.0 (13.2.98)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * This program will draw into the main buffer a series of random
  8.  * designs, demonstrating the use of the drawing tools from Arexx.
  9.  *
  10.  * 13.02.98 tek   Fixed the error in the oval drawings.
  11.  *
  12.  */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. GetMain
  17. IF result = "" THEN DO
  18.    /* create buffer if one doesn't exist. */
  19.    CreateBuffer 320 200 Force
  20.    GetMain
  21.    END
  22.  
  23. PARSE VAR result name width height depth
  24.  
  25. SaveUndo ; Redraw Off
  26.  
  27. LockInput
  28.  
  29. Message 'Drawing Points'
  30. BeginBar 'Points' 100
  31. DO i = 0 TO 99
  32.    Bar i
  33.    LockGUI
  34.    SetPalette '-1' RANDOM(0,255) RANDOM(0,255) RANDOM(0,255)
  35.    Point RANDOM(0,width-1) RANDOM(0,height-1)
  36.    UnlockGUI Quiet
  37.    END
  38. EndBar
  39.  
  40. Redraw On ; Redraw ; Redraw Off
  41.  
  42. Message 'Drawing Lines'
  43. BeginBar 'Lines' 30
  44. DO i = 0 TO 29
  45.    Bar i
  46.    LockGUI
  47.    SetPalette '-1' RANDOM(0,255) RANDOM(0,255) RANDOM(0,255)
  48.    Line RANDOM(0,width-1) RANDOM(0,height-1) RANDOM(0,width-1) RANDOM(0,height-1)
  49.    UnlockGUI Quiet
  50.    END
  51. EndBar
  52.  
  53. Redraw On ; Redraw ; Redraw Off
  54.  
  55. Message 'Drawing Boxes'
  56. BeginBar 'Boxes' 30
  57. DO i = 0 TO 29
  58.    Bar i
  59.    LockGUI
  60.    SetPalette '-1' RANDOM(0,255) RANDOM(0,255) RANDOM(0,255)
  61.    x = RANDOM(0,width-1)
  62.    y = RANDOM(0,height-1)
  63.    Box x y RANDOM(0,width-x-1) RANDOM(0,height-y-1)
  64.    UnlockGUI Quiet
  65.    END
  66. EndBar
  67.  
  68. Redraw On ; Redraw ; Redraw Off
  69.  
  70. Message 'Drawing Ovals'
  71. BeginBar 'Ovals' 30
  72. DO i = 0 TO 29
  73.    Bar i
  74.    LockGUI
  75.    SetPalette '-1' RANDOM(0,255) RANDOM(0,255) RANDOM(0,255)
  76.    x = RANDOM(0,width-1)
  77.    y = RANDOM(0,height-1)
  78.    xr = RANDOM(0,width%2)
  79.    yr = RANDOM(0,height%2)
  80.    Oval x y xr yr
  81.    UnlockGUI Quiet
  82.    END
  83. EndBar
  84.  
  85. UnlockInput
  86.  
  87. Redraw On ; Redraw
  88.  
  89. EXIT
  90.